﻿Imports Control_Vuelos_BL
Imports Control_Vuelos_BE

Public Class frmSeg_Usuario
    Inherits frmBaseMantenimiento
    Private oUsuario As New UsuarioBL




    Private Sub frmSeg_Usuario_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        UcMantUsuario1.GridControl1.DataSource = oUsuario.pr_Select_Usuarios("")

        AddHandler BarBtnAgregar.ItemClick, AddressOf pr_Nuevo
    End Sub

    Private Sub pr_nuevo()
        Dim sfrmMantUser As New frmSeg_UsuarioMantenimiento()
        sfrmMantUser.ShowDialog()
    End Sub
End Class